home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 88
/
088.d81
/
set printer
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
5KB
|
170 lines
100 rem
110 rem code by rick nash
120 dv=peek(186):ifdv<8thendv=8
130 poke53280,0:poke53281,0
150 print""spc(6);"[153]6502 [201]nstruction [211]et [208]rinter"
160 print spc(9);"[195]opyright ([195]) 1991 by"
170 print spc(7);"[158][211]oftdisk [208]ublishing, [201]nc."
180 print spc(10);"[154]all rights reserved"
200 printspc(8);"[200]old on, [201]'m working..."
210 dim t1%(255),t2%(255),mn$(56),md$(13),am$(13),sz%(13),rr%(12),mc%(20)
220 dim hx$(255)
230 fori=0to255:readt1%(i):next
240 fori=0to255:readt2%(i):next
250 fori=0to56:readmn$(i):next
260 fori=0to13:readmd$(i):next
270 fori=0to13:readam$(i):next
280 fori=0to13:readsz%(i):next
290 fori=0to12:readrr%(i):next
300 t=0
310 h$="0123456789abcdef"
320 lm$=" "
330 ds$="--------------------------"
340 fori=1to16
350 : forj=1to16
360 : :hx$(t)=mid$(h$,i,1)+mid$(h$,j,1)
370 : :t=t+1
380 : nextj
390 nexti
400 lc=0
410 printchr$(145);:fori=217to242:pokei,peek(i)or128:next
420 print" [208] [146][159] print [201]nstruction [211]et [209] [146][159] [209]uit"
430 geta$:ifa$<>"p"anda$<>"q"then430
431 poke781,peek(214)-1:sys59903
432 ifa$="q"then2000
433 print:printspc(14)"[208]rinting..."
440 open4,4
450 print#4,"":print#4,""
460 fori=1to56
470 print#4,lm$;ds$;" ";mn$(i);" ";ds$
480 print#4,lm$;" addressing assembly op no. no."
490 print#4,lm$;" mode form code bytes cycles"
500 print#4,lm$;ds$;ds$;"-----"
510 t=0
520 forj=0to255
530 : if t1%(j)=i then mc%(t)=j:t=t+1
540 nextj
550 forj=0to12
560 : ky=rr%(j)
570 : fork=0to(t-1)
580 : : a=t2%(mc%(k))and15
590 : : c=(t2%(mc%(k))and240)/16
600 : : ifa=ky then gosub700
610 : nextk
620 nextj
630 print#4,lm$;ds$;ds$;"-----"
640 print#4,"":print#4,""
650 lc=lc+7+t
660 iflc>50 then gosub740
670 nexti
680 print#4:close4
690 goto2000
700 print#4,lm$;md$(a);" ";mn$(i);" ";am$(a);" ";hx$(mc%(k));
710 print#4," ";right$(mid$(str$(sz%(a)),1),1);
720 print#4," ";right$(mid$(str$(c),1),1)
730 return
740 fornn=1to(66-lc)
750 : print#4,""
760 nextnn
770 lc=0:return
780 data 11,35,57,57,57,35,3,57,37,35
790 data 3,57,57,35,3,57,10,35,57,57
800 data 57,35,3,57,14,35,57,57,57,35
810 data 3,57,29,2,57,57,7,2,40,57
820 data 39,2,40,57,7,2,40,57,8,2
830 data 57,57,57,2,40,57,45,2,57,57
840 data 57,2,40,57,42,24,57,57,57,24
850 data 33,57,36,24,33,57,28,24,33,57
860 data 12,24,57,57,57,24,33,57,16,24
870 data 57,57,57,24,33,57,43,1,57,57
880 data 57,1,41,57,38,1,41,57,28,1
890 data 41,57,13,1,57,57,57,1,41,57
900 data 47,1,57,57,57,1,41,57,57,48
910 data 57,57,50,48,49,57,23,57,54,57
920 data 50,48,49,57,4,48,57,57,50,48
930 data 49,57,56,48,55,57,57,48,57,57
940 data 32,30,31,57,32,30,31,57,52,30
950 data 51,57,32,30,31,57,5,30,57,57
960 data 32,30,31,57,17,30,53,57,32,30
970 data 31,57,20,18,57,57,20,18,21,57
980 data 27,18,22,57,20,18,21,57,9,18
990 data 57,57,57,18,21,57,15,18,57,57
1000 data 57,18,21,57,19,44,57,57,19,44
1010 data 25,57,26,44,34,57,19,44,25,57
1020 data 6,44,57,57,57,44,25,57,46,44
1030 data 57,57,57,44,25,57
1040 data 117,102,5,5,5,51,83,5,53,33
1050 data 36,5,5,66,98,5,43,87,5,5
1060 data 5,72,104,5,37,74,5,5,5,73
1070 data 121,5,98,102,5,5,51,51,83,5
1080 data 69,33,36,5,66,66,98,5,43,87
1090 data 5,5,5,72,104,5,37,74,5,5
1100 data 5,73,121,5,101,102,5,5,5,51
1110 data 83,5,53,33,36,5,50,66,98,5
1120 data 43,87,5,5,5,72,104,5,37,74
1130 data 5,5,5,73,121,5,101,102,5,5
1140 data 5,51,83,5,69,33,36,5,92,66
1150 data 98,5,43,87,5,5,5,72,104,5
1160 data 37,74,5,5,5,73,121,5,5,102
1170 data 5,5,51,51,51,5,37,5,37,5
1180 data 66,66,66,5,43,103,5,5,72,72
1190 data 77,5,37,90,37,5,5,89,5,5
1200 data 33,102,33,5,51,51,51,5,37,33
1210 data 37,5,66,66,66,5,43,87,5,5
1220 data 72,72,77,5,37,74,37,5,73,73
1230 data 74,5,33,102,5,5,51,51,83,5
1240 data 37,33,37,5,66,66,98,5,43,87
1250 data 5,5,5,72,104,5,37,74,5,5
1260 data 5,73,121,5,33,102,5,5,51,51
1270 data 83,5,37,33,37,5,66,66,98,5
1280 data 43,87,5,5,5,72,104,5,37,74
1290 data 5,5,5,73,121,5
1300 data " "
1310 data adc,and,asl,bcc,bcs,beq,bit
1320 data bmi,bne,bpl,brk,bvc,bvs,clc
1330 data cld,cli,clv,cmp,cpx,cpy,dec
1340 data dex,dey,eor,inc,inx,iny,jmp
1350 data jsr,lda,ldx,ldy,lsr,nop,ora
1360 data pha,php,pla,plp,rol,ror,rti
1370 data rts,sbc,sec,sed,sei,sta,stx
1380 data sty,tax,tay,tsx,txa,txs,tya
1390 data "filler space "
1400 data "immediate "
1410 data "absolute "
1420 data "zero page "
1430 data "accumulator "
1440 data "implied "
1450 data "(indirect, x) "
1460 data "(indirect), y "
1470 data "zero page, x "
1480 data "absolute, x "
1490 data "absolute, y "
1500 data "relative "
1510 data "(indirect) "
1520 data "zero page, y "
1530 rem
1540 data "filler space"
1550 data "#oper "
1560 data "oper "
1570 data "oper "
1580 data "a "
1590 data " "
1600 data "(oper,x) "
1610 data "(oper),y "
1620 data "oper,x "
1630 data "oper,x "
1640 data "oper,y "
1650 data "oper "
1660 data "(oper) "
1670 data "oper,y "
1680 rem
1690 data 0,2,3,2,1,1,2,2,2,3,3,2,3,2
1700 rem
1710 data 1,4,3,8,13,2,12,9,10,6,7,5,11
2000 fori=0to9:poke781,i:sys59903:next:print"
60000 a$[178]"ml 101 boot":[159]15,8,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15
60010 [139] er[179][177]63 [167] [153]"load":[128]
60011 q$[178][199](34):[151]646,[194](53281):[153]""
60020 [153]"load"q$a$q$","dv
60030 [153]"run":[151]631,13:[151]632,13:[151]198,2:[128]